home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_059 / browser / change.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  644b  |  36 lines

  1. /******  ChangeToString()   Mark E. Schretlen  87-01-17
  2.  
  3.            - converts a variable of type long
  4.                to a string suitable for Amiga Text() subroutines for
  5.                   window output.
  6.  
  7. *******/
  8.  
  9. #include <math.h>
  10. #include <string.h>
  11.  
  12. char *ChangeToString(x)
  13.  
  14. long x;
  15.  
  16. {
  17.    double fi;
  18.    int dummy,sign;
  19.    static char buffer[70] = "\0";
  20.    char *p;
  21.  
  22.    sign = dummy = 0;
  23.    fi = (double)x;
  24.  
  25.  
  26.    strcpy(buffer,"");
  27.    p = &buffer[0];
  28.  
  29.                  /* Convert long to string with unix "fcvt" */
  30.  
  31.    strins(p,fcvt(fi,0,&dummy,&sign));
  32.    if (sign) strins(p,"-");      /*  insert neg. sign if necessary */
  33.  
  34.    return(p);
  35. }
  36.